﻿#Region "Imports"

Imports MS.WindowsAPICodePack.Internal.CoreHelpers

Imports Microsoft.WindowsAPICodePack
Imports Microsoft.WindowsAPICodePack.Taskbar

#End Region

Class MainWindow

#Region "MainWindow"

    Private Sub MainWindow_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        If RunningOnVista Or RunningOnWin7 Then
            GlassHelper.ExtendGlassFrame(Me, New Thickness(-1, -1, -1, -1))
        End If
    End Sub

#End Region

#Region "Buttons"

    Private Sub InstallAllButton_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles InstallAllButton.Click
        Process.Start(My.Application.Info.DirectoryPath + "\document.editor\setup.exe")
        Process.Start(My.Application.Info.DirectoryPath + "\document.viewer\setup.exe")
        Process.Start(My.Application.Info.DirectoryPath + "\calculator\setup.exe")
        Process.Start(My.Application.Info.DirectoryPath + "\calendar\setup.exe")
        Close()
    End Sub

    Private Sub IDEButton_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles IDEButton.Click
        Process.Start(My.Application.Info.DirectoryPath + "\document.editor\setup.exe")
        Close()
    End Sub

    Private Sub IDVButton_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles IDVButton.Click
        Process.Start(My.Application.Info.DirectoryPath + "\document.viewer\setup.exe")
        Close()
    End Sub

    Private Sub ICButton_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles ICaleButton.Click
        Process.Start(My.Application.Info.DirectoryPath + "\calculator\setup.exe")
        Close()
    End Sub

    Private Sub ICaleButton_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles ICaleButton.Click
        Process.Start(My.Application.Info.DirectoryPath + "\calendar\setup.exe")
        Close()
    End Sub

    Private Sub CancelButton_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles CancelButton.Click
        Close()
    End Sub

#End Region

End Class